#!
$song = "I m a Big big girl. In a big Big world.";
@bigs = $song=~/big/ig;

print join('-',@bigs);
print "\n$song";